Amiga Plus 2002 #12/Amiga Plus CD - 2002 - No. 12.iso/Tools/Freeware/PerfectPaint/rexx/Border/Script&Picture/Old.brx

Text File | 2002-10-15 | 1.2 KB | 87 lines

/* Ellipse Border */

    options results
    parse ARG Port b

    ADDRESS value Port

    pp_Progresstext 'Border'

    pp_GetWidth
    W=result
    pp_GetHeight
    H=result
    pp_ClosestColor 255 255 255
    White=result
    pp_ClosestColor 0 0 0
    Black=result

    pp_StencilOff
    pp_EffectOff
    pp_SpareOnOff
    pp_ComposeReqOff
    pp_Compose 0 100 0
    pp_SetApen Black
    pp_SetBpen White
    pp_Cls

    pp_PenType 2
    pp_PenSize 7

    x1=5
    y1=5
    x2=W-6
    y2=H-6

    xb=trunc(((abs(x1-x2)+1)*20)/100)
    yb=trunc(((abs(y1-y2)+1)*20)/100)
    ab=xb
    if xb>yb then
    do
        ab=yb
    end
    ac=trunc(ab/2)
    pp_STARTpoly
    pp_ADDpoly x1 y1
    pp_ADDpoly x1+ac y1
    pp_ADDpoly x1+ac y1+ab
    pp_ADDpoly x1 y1+ab
    pp_ADDpoly x1 y2-ab
    pp_ADDpoly x1+ac y2-ab
    pp_ADDpoly x1+ac y2
    pp_ADDpoly x1 y2
    pp_ADDpoly x1 y2-ac
    pp_ADDpoly x1+ab y2-ac
    pp_ADDpoly x1+ab y2
    pp_ADDpoly x2-ab y2
    pp_ADDpoly x2-ab y2-ac
    pp_ADDpoly x2 y2-ac
    pp_ADDpoly x2 y2
    pp_ADDpoly x2-ac y2
    pp_ADDpoly x2-ac y2-ab
    pp_ADDpoly x2 y2-ab
    pp_ADDpoly x2 y1+ab
    pp_ADDpoly x2-ac y1+ab
    pp_ADDpoly x2-ac y1
    pp_ADDpoly x2 y1
    pp_ADDpoly x2 y1+ac
    pp_ADDpoly x2-ab y1+ac
    pp_ADDpoly x2-ab y1
    pp_ADDpoly x1+ab y1
    pp_ADDpoly x1+ab y1+ac
    pp_ADDpoly x1 y1+ac
    pp_ADDpoly x1 y1
    pp_ENDpoly


    pp_SparetoStencil
    pp_InvStencil


    EXIT